MacWorld 1998 February/Macworld (1998-02).dmg/Shareware World/Comms & Internet/ShadowBot 1.23/Plugins/poll

Text File | 1997-07-29 | 1KB | 62 lines

'Poll Plugin 1.1
'© John Bafford, 1996-1997
'
*COMMAND vote -1
*GLOBAL int yes 0
*GLOBAL int no 0
*GLOBAL int total 0
*ENDCONF

@ENTRY vote
    @GETARGS 1
    @IF #$NUMARGS < 1 notEnoughArgs

  @IF "YES" = "$ARG1" yes
  @IF "NO" = "$ARG1" no
  @IF "RESULTS" = "$ARG1" results
  @IF "RESET" = "$ARG1" reset
  @IF "HELP" = '$ARG1" help
  NOTICE $NICK Illegal Vote command: "$ARG1"
@END

@LABEL help
  NOTICE $NICK Valid vote commands: YES, NO, RESULTS, RESET, HELP
@END

@LABEL yes
  @ADDONE total
  @ADDONE yes
  NOTICE $NICK Your vote (Yes) has been added. Thank you for participating.
@END

@LABEL no
  @ADDONE total
  @ADDONE no
  NOTICE $NICK Your vote (No) has been added. Thank you for participating.
@END

@LABEL results
  @IF ACCESS >= 900 results.good
    NOTICE $NICK You don't have access to view the results.
@END

@LABEL results.good
  NOTICE $NICK Voting results: Yes: $GLOBAL:yes., No: $GLOBAL:no., Total: $GLOBAL:total..
@END

@LABEL reset
  @IF ACCESS >= 900 reset.good
  NOTICE $NICK You don't have access to view the results.
@END

@LABEL reset.good
  @SET yes 0
  @SET no 0
  @SET total 0
  NOTICE $NICK Votes have been reset.
@END

@LABEL notEnoughArgs
    NOTICE $NICK Please specify a command, or "HELP" for help.
@END